home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / info-service / gopher / incoming / gopher2nntp < prev    next >
Encoding:
Text File  |  1992-07-24  |  5.9 KB  |  295 lines
  1.  
  2. #!/usr/local/bin/perl
  3. #
  4. # switch to nobody if we are root
  5. ($<,$>) = (-2,-2) unless $>;
  6.  
  7. require 'getopts.pl';
  8.  
  9. #
  10. # Simple gopher2nntp server. You can change the following variables.
  11. # nntp_port is hardcoded here since this is a stateless server and
  12. # no sense in reading it from /etc/services every time...
  13. #
  14. # A server that sticks around might be better...
  15. #
  16. # Note: The NNTP daemon must accept the XHDR command.
  17. #
  18. #
  19. # You should run "gopher2nntp -g" from cron to generate the groups 
  20. # file. If you don't generate the groups file then this server will
  21. # grab it from the NNTP server, but thats a waste of time. 
  22. #
  23. #
  24.   $nntp_server = "leland.stanford.edu";
  25.   $nntp_port   = 119;
  26.   $nntp_groups = "/usr/local/etc/newsgroups.gopher"; # could be active file
  27.  
  28.   @nntp_acl=(
  29. #     ipaddress  group    access + = allow, - = deny    
  30.      '^36\.      .*       +',
  31.      '.*         ^clari   -',
  32.      '.*         .*       +'
  33.   );
  34.  
  35. #
  36. # Commands this server responds to:
  37. # 
  38. # ""                         -> list top level groups
  39. # ls $group                  -> list group's articles and sub-groups
  40. # article $group $number     -> get 1 article
  41. # sorry                      -> send sorry message
  42. #
  43.  
  44. $port=&my_port();         # port this script is running on 
  45. chop($host = `hostname`);
  46.  
  47. &Getopts('nrdga:s:');
  48.  
  49. if ($errs || $#ARGV!=-1) {
  50.  
  51. print<<EOF;
  52.  
  53.  Usage: $0 [-s server] [-a active_file] [-n] [-g] [-d] [-r]
  54.  -s server      NNTP server to contact
  55.  -a file        Active file to use
  56.  -n             Don't use active file
  57.  -g             generate new active file
  58.  -d             turn on debug (when typing commands from a tty)
  59.  -r             list articles in reverse order
  60. EOF
  61. exit;
  62.  
  63. }
  64.  
  65. $nntp_server = $opt_s if (defined($opt_s));
  66. $nntp_port = $opt_p if (defined($opt_p));
  67. $nntp_groups = $opt_a if (defined($opt_a));
  68.  
  69. &create_groups($opt_g) if defined($opt_g);
  70.  
  71.   $_ = <STDIN>; s/\r//; s/\n//;
  72.  
  73.   &do_ls("") if /^$/;
  74.   &do_ls($1) if /^ls\s+(.*)/i;
  75.   &do_article($1,$2) if /^article\s+(\S+)\s+(\d+)/i;
  76.   &do_sorry if /^sorry$/;
  77.   &reply("3Unknown command!");
  78.   exit;
  79.  
  80. sub do_article {
  81.   local($group,$number) = @_;
  82.  
  83.   if (&check_access($group) eq '-')  { 
  84.       &do_sorry;
  85.       &reply("."); 
  86.       exit; 
  87.   }
  88.  
  89.   &open_nntp;
  90.  
  91.   &send("GROUP $group");
  92.   $_ = &recv;
  93.   &death if !/^211/;
  94.  
  95.   &send("ARTICLE $number");
  96.   $_ = &recv;
  97.   &death if !/^220/;
  98.  
  99.   while(<SERVER>) {
  100.     print;
  101.     last if /^\.\r\n$/;
  102.   }
  103.  
  104.   &close_nntp;
  105.   exit;
  106. }
  107.  
  108. sub list_group {
  109.   local($group) = @_;
  110.  
  111.   &send("GROUP $group");
  112.   $_ = &recv;
  113.   &death if !/^211/;
  114.  
  115.   ($n,$f,$l) = /211\s+(\d+)\s+(\d+)\s+(\d+)/;
  116.  
  117.   &send("XHDR Subject $f-$l");
  118.   $_ = &recv;
  119.   &death if !/^221/;
  120.  
  121.   while(<SERVER>) {
  122.     chop; chop;
  123.     last if /^\.$/;
  124.     ($article,$subject) = /^(\d+)\s+(.*)/;
  125.     $subject =~ s/\t/ /g; # just in case!
  126.     if (defined($opt_r)) {
  127.        push(@reply,"0$subject\tarticle $group $article\t$host\t$port");
  128.     } else {
  129.        &reply("0$subject\tarticle $group $article\t$host\t$port");
  130.     }
  131.   }
  132.  
  133.   if (defined($opt_r)) { 
  134.     for ($i=$#reply; $i!= -1; $i--) { &reply($reply[$i]); } 
  135.   }
  136.  
  137.   &reply(".");
  138.   &close_nntp;
  139.   exit;
  140. }
  141.  
  142.  
  143. sub do_ls {
  144.   local($prefix) = @_;
  145.  
  146.   if (&check_access($prefix) eq '-') {
  147.       &reply("0Sorry! No no access off of campus!\tsorry\t$host\t$port");
  148.       &reply("."); 
  149.       exit; 
  150.   }
  151.  
  152.   &open_nntp;
  153.   &get_groups;
  154.  
  155.   foreach ( sort @groups) {
  156.     if ($_ eq $prefix) { $do_list_group = $_; }
  157.     elsif (/^$prefix\.([^.]*)\.?/) {
  158.          $leaf=$1;
  159.          $save{"$prefix.$leaf"} = "1$leaf\tls $prefix.$leaf\t$host\t$port";
  160.     }
  161.     elsif ($prefix eq '' && /([^.]*)/) {
  162.          $save{"$1"} = "1$1\tls $1\t$host\t$port";
  163.     }
  164.   }
  165.  
  166.   foreach ( sort keys %save) { &reply($save{$_}); }
  167.   &list_group($do_list_group) if ($do_list_group);
  168.  
  169.   &reply(".");
  170.   &close_nntp;
  171.   exit;
  172. }
  173.  
  174. sub open_nntp {
  175.   local($_);
  176.   &open_server($nntp_server,$nntp_port);
  177.   $_ = &recv;
  178.   &death if !/^2/;
  179. }
  180.  
  181. sub close_nntp {
  182.   &send("QUIT");
  183.   close(SERVER);
  184. }
  185.  
  186. sub my_port {
  187.    return -1 if (-t STDIN);
  188.    $sockaddr = 'S n a4 x8';
  189.    $mysockaddr = getsockname(STDIN);
  190.    ($myfamily,$myport,$myaddr) = unpack($sockaddr,$mysockaddr);
  191.    return $myport;
  192. }
  193.  
  194. sub open_server {
  195.  
  196.  local($server,$port) = @_;
  197.  $sockaddr = 'S n a4 x8';
  198.  (($name, $aliases, $type, $len, $saddr) = gethostbyname($server))||&death;
  199.  $sin = pack($sockaddr, 2, $port, $saddr);
  200.  socket(SERVER, 2, 1, 0) || &death;
  201.  connect(SERVER, $sin)   || &death;
  202.  select(SERVER); $| = 1; select(STDOUT); $| = 1;
  203.  
  204. }
  205.  
  206. sub send     { 
  207.      print "send -> |$_[0]|\n" if (defined($opt_d));
  208.      print SERVER "$_[0]\r\n"; 
  209. }
  210.  
  211. sub recv { 
  212.    local ($_); 
  213.    $_= <SERVER>; 
  214.    chop; chop;
  215.    print "recv -> |$_|\n" if (defined($opt_d));
  216.    return $_; 
  217. }
  218.  
  219. sub reply { print "$_[0]\r\n";}
  220. sub death { &reply("."); exit; }
  221.  
  222. sub get_groups {
  223.  if (!defined($opt_n) && open(GROUPS,$nntp_groups)) {
  224.       while(<GROUPS>) {
  225.           chop;
  226.           ($grp) = /^(\S+)/;
  227.           push(@groups,$grp);
  228.       }
  229.       close(GROUPS);
  230.  } else {                  # can't open file, get list from server!
  231.   &load_groups;
  232.  }
  233. }
  234.  
  235. sub load_groups {
  236.  
  237.   &open_nntp;
  238.   &send("LIST");
  239.   $_ = &recv;
  240.   &death if !/^215/;
  241.  
  242.   while(<SERVER>) {
  243.     chop; chop;
  244.     last if /^\.$/;
  245.     s/^(\S+).*/$1/;
  246.     push(@groups,$_);
  247.   }
  248.  
  249. }
  250.  
  251. sub create_groups { 
  252.  
  253.   &load_groups;
  254.  
  255.   open(GROUPS,">$nntp_groups") || die "$nntp_groups: $!";
  256.   foreach (@groups) { print GROUPS "$_\n"; }
  257.   close GROUPS;
  258.  
  259.   &close_nntp;
  260.   exit;
  261. }
  262.  
  263. sub check_access {
  264.    local($group)=@_;
  265.  
  266.    return 1 if (-t STDIN);
  267.    $sockaddr = 'S n a4 x8';
  268.    $mysockaddr = getpeername(STDIN);
  269.    ($ramily,$rport,$raddr) = unpack($sockaddr,$mysockaddr);
  270.    ($a,$b,$c,$d) = unpack('C4',$raddr);
  271.    $ipaddress = "$a.$b.$c.$d";
  272.  
  273.    foreach (@nntp_acl) {
  274.       ($ipacl,$groupacl,$access)=split;
  275.       return $access if  ($ipaddress =~ /$ipacl/) && ($group =~ /$groupacl/);
  276.    }
  277.    return '-'; #default is to restrict access
  278. }
  279.  
  280. sub do_sorry {
  281.  
  282. print<<EOF;
  283.  
  284. Sorry! You have selected information that cannot be delivered off
  285. of campus due to restrictions.
  286.  
  287.    -- The Mole Hole Guardian
  288.  
  289. EOF
  290.  
  291. &reply(".");
  292. exit;
  293.  
  294. }
  295.